home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / r174chtr.zip / RSB4CHTR.MRG < prev    next >
Text File  |  1992-07-27  |  13KB  |  287 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\1740704\RBBSSUB4.BAS to produce D:\SOURCE\RBBSSUB4.BAS
  3. * D:\1740704\RBBSSUB4.BAS:  Date 7-26-1992  Size 120885 bytes
  4. * ------------[ Created 07-27-1992 00:13:01 ]------------
  5. * REPLACING old line(s) by new
  6. 57000 ' $SUBTITLE: 'Toggle - Toggle User Preferences'
  7. ' $PAGE
  8. '
  9. '  NAME    -- Toggle
  10. '
  11. '  INPUTS  -- ToggleOption      Option to toggle or view
  12. '                               according to the following:
  13. '    ToggleOption         PREFERENCE
  14. '   Toggle   VIEW
  15. '     1       -1           Autodownload
  16. '     2       -2           Bulletin review on logon
  17. '     3       -3           Case change
  18. '     4       -4           File review on logon
  19. '     5       -5           Highlight
  20. '     6       -6           Line feeds
  21. '     7       -7           Nulls
  22. '     8       -8           TurboKey
  23. '     9       -9           Expert
  24. '    10      -10           Bell
  25. * ------[ first line different ]------
  26. '    11      -11           Chat Availability
  27. '
  28. '  OUTPUTS -- ZSubParm   passed from TPut
  29. '
  30. '  PURPOSE -- Sets or views any single user preference value
  31. '
  32.       SUB Toggle (ToggleOption) STATIC
  33.       ZSubParm = 0
  34.       IF ToggleOption < 0 THEN _
  35.          GOTO 57005
  36.       ON ToggleOption GOSUB _
  37.          57010, _         'Autodownload
  38.          57120, _         'Bulletin review on logon
  39.          57260, _         'Case change
  40.          57150, _         'File review on logon
  41.          57040, _         'Highlight
  42.          57100, _         'Line feeds
  43.          57210, _         'Nulls
  44.          57230, _         'TurboKey
  45.          57190, _         'Expert
  46.          57170, _         'Bell                                        'CHT
  47.          57300            'Internode chat availability                 'CHT
  48.       EXIT SUB
  49. * REPLACING old line(s) by new
  50. 57005 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  51.       ON -ToggleOption GOSUB _
  52.          57030, _         'Autodownload
  53.          57130, _         'Bulletin review on logon
  54.          57270, _         'Case change
  55.          57160, _         'File review on logon
  56.          57050, _         'Highlight
  57.          57110, _         'Line feeds
  58.          57220, _         'Nulls
  59.          57240, _         'TurboKey
  60.          57200, _         'Expert
  61. * ------[ first line different ]------
  62.          57180, _         'Bell                                        'CHT
  63.          57310            'Internode chat availability                 'CHT
  64.       EXIT SUB
  65. * REPLACING old line(s) by new
  66. 57280 ZUseTPut = (ZUpperCase OR ZXOnXOff)
  67.       RETURN
  68. * ------[ first line different ]------
  69. * INSERTING new line(s)
  70. 57300 ZAvailableForChat = NOT ZAvailableForChat
  71. 57310 ZOutTxt$ = "Inter-Node Chat: " + MID$("YESNO",1 -3 * ZAvailableForChat, 3)  ' TH101101
  72.       CALL SkipLine(1)                                               ' CHT101201
  73.       CALL QuickTPut1 (ZOutTxt$)
  74.       CALL SkipLine(1)                                               ' CHT101201
  75.       END SUB
  76. '
  77. * REPLACING old line(s) by new
  78. 58200 ' $SUBTITLE: 'FMS - subroutine to search the upload management system'
  79. ' $PAGE
  80. '
  81. '  NAME    -- FMS
  82. '
  83. '  INPUTS  -- PARAMETER                      MEANING
  84. '             DirToSearch$          RBBS-PC "DIR" CATEGORY TO LOOK
  85. '                                     FOR
  86. '             SearchString$          STRING TO SEARCH FOR
  87. '             SearchDate$            DATE TO SEARCH FOR
  88. '             ZCategoryName$()
  89. '             ZCategoryCode$()
  90. '             ZCategoryDesc$()
  91. '             CatFound
  92. '             ZNumCategories
  93. '
  94. '  OUTPUTS -- ProcessedInFMS
  95. '             DnldFlag
  96. '
  97. '  PURPOSE -- To search the file management system and display the
  98. '             files being searched for as well as the catetory descriptions
  99. '
  100.       SUB FMS (DirToSearch$,SearchString$,SearchDate$, _
  101. * ------[ first line different ]------
  102.            ProcessedInFMS,ZCategoryName$(1),ZCategoryCode$(1), _
  103.            ZCategoryDesc$(1),DnldFlag,CatFound,AbortIndex) STATIC
  104.       DnldFlag = 0
  105.       CALL SearchArray (DirToSearch$,ZCategoryName$(),ZNumCategories,CatFound)
  106.       ProcessedInFMS = ProcessedInFMS OR (CatFound > 0)
  107.       If ZEmphasizeOn$ <> "" THEN  _                     'Bama Connx 02/24/90
  108.          Zfg5$ = zESCAPE$ + "[1;36;40m" : _              'Bama Connx 02/24/90
  109.      zfg6$ = zESCAPE$ + "[1;37;44m" : _              'Bama Connx 02/24/90
  110.          zfg7$ = zESCAPE$ + "[1;33;40m" : _              'Bama Connx 02/24/90
  111.      ELSE _                                          'Bama Connx 02/24/90
  112.       GOSUB 58201                                        ' TH101801
  113.       IF ProcessedInFMS THEN _
  114.      ZSubParm = 5 : _
  115.      GOSUB 58202 : _
  116.          CALL quicktput("",1)                             'Bama Connx 02/24/90
  117.      CALL quicktput(Zfg5$+"╔═"+zfg6$+" "+DIRTOSEARCH$+" "+Zfg5$+"═══",0) : _'Bama Connx 02/24/90
  118.      CALL quicktput(zfg6$ +" "+ ZCategoryDesc$(Catfound) +" " + Zfg5$ + "════" + _'Bama Connx 02/24/90
  119.                     zfg7$+" " + zColorReset$+ HDR$,1) : _                          'Bama Connx 02/24/90
  120.      CALL quicktput(Zfg5$+ "║",1)  : _                                          'Bama Connx 02/24/90
  121.          CALL quicktput("╚═"+zfg6$+"File Name"+Zfg5$+"══════" + zfg6$ + "Size" + _  'Bama Connx 02/24/90
  122.             Zfg5$+"════",0) : _                                             'Bama Connx 02/24/90
  123.          CALL quicktput(zfg6$+"Date"+Zfg5$+"════"+zfg6$ + "Description"+ _          'Bama Connx 02/24/90
  124.               Zfg5$+"════════════════════════════"+zfg7$+" "+ZColorReset$,1) : _   'Bama Connx 02/24/90
  125.      Cat$ = ZCategoryCode$(CatFound) : _
  126.      CALL DispUpDir (Cat$,SearchString$,SearchDate$,DnldFlag,AbortIndex)
  127.       EXIT SUB
  128. * INSERTING new line(s)
  129. 58201 DnldFlag = 0                                                   ' TH101801
  130.       If ZEmphasizeOff$ <> "" THEN _                                 ' TH101801
  131.       IF ProcessedInFMS THEN _                                       ' TH101801
  132.          ZSubParm = 5 : _                                            ' TH101801
  133.      GOSUB 58202 : _                                             ' TH101801
  134.          CALL QuickTPut("",1)                                        ' TH101801
  135.          CALL SkipLine(1)                                            ' TH101801
  136.          CALL QuickTPut("[" +ZCategoryDesc$(CatFound)+ "]",1) : _    ' TH102502
  137.          CALL QuickTPut("[ File Name " + _                           ' TH101801
  138.                      "-----"  +  "Size"  + _         '               ' TH101801
  139.                     "----",0) : _                                    ' TH101801
  140.          CALL QuickTPut("Date"+"----" + "Description" + _            ' TH101801
  141.             "------------------------------"+"] " + _      ' TH102402                             ' TH101801
  142.               ZColorReset$,1) : _                                    ' TH101801
  143.          Cat$ = ZCategoryCode$(CatFound) : _                         ' TH101801
  144.          CALL DispUpDir (Cat$,SearchString$,SearchDate$,DnldFlag,AbortIndex) ' TH101801
  145.               EXIT SUB                                               ' TH101801
  146. * REPLACING old line(s) by new
  147. 58202 ZOutTxt$ = SearchDate$
  148.       IF LEN(ZOutTxt$) > 0 THEN _
  149. * ------[ first line different ]------
  150.      ZOutTxt$ = MID$(ZOutTxt$,3) + LEFT$(ZOutTxt$,2)
  151.       HDR$ = SearchString$ + _                                 'Bama Connx 02/24/90
  152.          ZOutTxt$                                          'Bama Connx 02/24/90
  153.       IF HDR$ <> "" THEN _                                     'Bama Connx 02/24/90
  154.       HDR$ = Zfg4$+"Scanning for "+ Zfg2$+HDR$                 'Bama Connx 02/24/90
  155.       RETURN
  156.       END SUB
  157. * REPLACING old line(s) by new
  158. 59851 IF NOT ZOK THEN _
  159.          GOTO 59856 _
  160.       ELSE IF EOF(2) THEN _
  161.               IF LogicalEOF$ = "" OR SkipParms = 0 THEN _
  162.                  GOTO 59856 _
  163.               ELSE CALL FindIt (ZConfMailList$) : _
  164.                    SkipParms = 0 : _
  165.                    GOTO 59851
  166.          CALL ReadAny
  167.          ZActiveUserFile$ = ZOutTxt$
  168.          CALL ReadAny
  169.          IF ZErrCode > 0 THEN _
  170.             GOTO 59856
  171.          SkipParms = SkipParms + 2
  172.          ZActiveMessageFile$ = ZOutTxt$
  173.          CALL FindFile (ZActiveUserFile$,ZOK)
  174.          IF NOT ZOK THEN _
  175.             GOTO 59856
  176.          CALL OpenUser (HighestUserRecord)
  177.          FIELD 5, 128 AS ZUserRecord$
  178.          CALL FindFile (ZActiveMessageFile$,ZOK)
  179.          IF NOT ZOK THEN _
  180.             GOTO 59856
  181.          CALL FindUser (ZOrigUserName$,"",ZStartHash,ZLenHash,_
  182.                         0,0,HighestUserRecord,_
  183.                         Found,HoldUserFileIndex,ZWasSL)
  184.          IF NOT Found THEN _
  185.             GOTO 59853
  186.          CALL OpenMsg
  187.          FIELD 1, 128 AS ZMsgRec$
  188.          GET 1,1
  189.          AnyMail = ZTrue
  190.          WasX = CVI(MID$(ZUserRecord$,57,2))
  191. * ------[ first line different ]------
  192.          WasX = (WasX AND 512) > 0
  193.          CALL BreakFileName (ZActiveUserFile$,WasX$,CurPre$,CurExt$,ZFalse)
  194.          InCur = (CurPre$ = NowInPre$ AND CurExt$ = NowInExt$)
  195. * REPLACING old line(s) by new
  196. 59852    IF InCur THEN _
  197.             FileWait = ZFileWaiting : _
  198.             WasX = ZMailWaiting : _
  199.             ZWasA = ZLastMsgRead _
  200.          ELSE ZWasA = CVI(MID$(ZUserRecord$,51,2))
  201.          ZWasB = VAL(LEFT$(ZMsgRec$,8))
  202.          WasZ = (ZWasB - ZWasA)
  203.          IF WasZ < 0 THEN _
  204.             ZWasA = 0 : _
  205.             WasZ = ZWasB _
  206.          ELSE IF WasZ = 0 THEN _
  207.                  WasX = ZFalse
  208.          ZWasSL = LEN(CurPre$)
  209.          IF CurPre$ = "USERS" AND CurExt$ = "" THEN _
  210.             Conf$ = "MAIN" _
  211.          ELSE Conf$ = LEFT$(CurPre$,ZWasSL-1)
  212.          ZOutTxt$ = MID$(STR$((ZWasB > ZWasA) * WasZ),2)
  213.          Temp = LEN(ZOutTxt$)
  214.          ZOutTxt$ = SPACE$(-(Temp<4) * (4-Temp)) + ZOutTxt$
  215.          IF (WasZ > 0 AND LinkNew) OR (WasX AND LinkPers) THEN _
  216.             IF (NOT InCur) THEN _
  217.                CALL AddLink (Conf$)
  218.          Temp = (INSTR(ZCarriageReturn$ + ZLinkedConf$,ZCarriageReturn$ + Conf$ + ZCarriageReturn$) > 0)
  219.          ZWasY$ = MID$(" *",1-Temp,1) + Conf$ + SPACE$(-(ZWasSL<8) * (8-ZWasSL))
  220.          IF WasX THEN _
  221.             WasX$ = ZEmphasizeOn$ + "Some to you" + ZEmphasizeOff$ _
  222.          ELSE WasX$ = "          "
  223. * ------[ first line different ]------
  224.          Temp$ = ""                                                    'CHT
  225.          ZOutTxt$ = ZWasY$ + ": " + ZOutTxt$ + " new message(s) " + _
  226.               WasX$ + Temp$
  227.          ZSubParm = 5
  228.          CALL TPut
  229.          ZJumpSupported = ZFalse
  230.          IF SkipJoinUnjoin THEN _
  231.             CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue) : _
  232.             GOTO 59853
  233.          ZTurboKey = -ZTurboKeyUser
  234.          CALL AskMore (",J)oin,U)njoin,L)ink,D)elink",ZTrue,ZFalse,WasX,ZFalse)
  235.          IF ZNo THEN _
  236.             GOTO 59856
  237.          WasX$ = LEFT$(ZUserIn$(1),1)
  238.          CALL AllCaps (WasX$)
  239.          IF WasX$ = "J" THEN _
  240.             ZLastIndex = ZWasQ : _
  241.             ZHomeConf$ = Conf$ : _
  242.             GOTO 59856
  243.          IF WasX$ = "D" THEN _
  244.             CALL DeLink (Conf$) : _
  245.             GOTO 59852
  246.          IF WasX$ = "L" THEN _
  247.             CALL AddLink (Conf$) : _
  248.             GOTO 59852
  249.          IF WasX$ = "U" THEN _
  250.             IF InCur OR (OrigPre$ = CurPre$ AND OrigExt$ = CurExt$) THEN _
  251.                CALL QuickTPut1 ("Can't omit yourself from the board or conference you're in") _
  252.             ELSE LSET ZUserRecord$ = CHR$(0) + "deleted user" : _
  253.                  ZUserFileIndex = HoldUserFileIndex : _
  254.                  ZSubParm = 6 : _
  255.                  CALL FileLock : _
  256.                  PUT 5, HoldUserFileIndex : _
  257.                  ZSubParm = 8 : _
  258.                  CALL FileLock : _
  259.                  CALL QuickTPut1 ("Omitted you from " + Conf$)
  260. * REPLACING old line(s) by new
  261. 64636 IF ZAnsIndex < ZLastIndex THEN _
  262.          GOTO 64638
  263.       ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     F)ile   H)ilite"
  264.       CALL TopPrompt
  265. * ------[ first line different ]------
  266.       ZOutTxt$ = "L)ine feeds  N)ulls  T)urboKey X)pert !)bell  I)nt Chat"  'CHT
  267.       CALL ColorPrompt (ZOutTxt$)
  268. * REPLACING old line(s) by new
  269. 64638 ZStackC = ZTrue
  270.       ZTurboKey = -ZTurboKeyUser
  271.       CALL PopCmdStack
  272.       IF ZWasQ=0 OR ZSubParm < 0 THEN _
  273.          EXIT SUB
  274.       ZWasZ$ = ZUserIn$(ZAnsIndex)
  275.       CALL AllCaps (ZWasZ$)
  276. * ------[ first line different ]------
  277.       ZFF = INSTR("ABCFHLNTX!I",ZWasZ$)                              'CHT
  278.       IF ZFF < 1 THEN _
  279.          GOTO 64636
  280.       CALL Toggle (ZFF)
  281.       GOTO 64636
  282.       END SUB
  283.       SUB TopPrompt STATIC
  284.       CALL ColorPrompt (ZOutTxt$)
  285.       CALL QuickTPut1 (ZOutTxt$)
  286.       END SUB
  287.